;.DECDF DEFINES DEC UUOS AND JOBDAT VARIABLES.

IFN 0,[
.AUXIL
]

DEFINE .DECDF
.DECRP X,Y,[
X=.DECVL Y
]
.DECJB X,Y,[
X==Y
]
.DEC.J X,Y,[
X==Y
]
TERMIN


;IRPS OVER DEC UUOS, USE .DECVL TO FIND VALUE (SEE .DECDF)

DEFINE .DECRP A,B,C
IRPS A,B,[CALL+INIT+UNUSD=UNUSD=UNUSD=UNUSD=UNUSD=CALLI+
OPEN+TTCALL+UNUSD=UNUSD=UNUSD=RENAME+IN+OUT+
SETSTS+STATO+GETSTS+STATZ+INBUF+OUTBUF+INPUT+OUTPUT+
CLOSE+RELEAS+MTAPE+UGETF+USETI+USETO+LOOKUP+ENTER+
LIGHTS-RESET-DDTIN-SETDDT-DDTOUT-DEVCHR-DDTGT-GETCHR-DDTRL-
WAIT-CORE-EXIT-UTPCLR-DATE-LOGIN-APRENB-LOGOUT-
SWITCH-REASSI-TIMER-MSTIME-GETPPN-TRPSET-TRPJEN-RUNTIM-
PJOB-SLEEP-SETPOV-PEEK-GETLIN-RUN-SETUWP-REMAP-
GETSEG-GETTAB-SPY-SETNAM-TMPCOR-DSKCHR-SYSSTR-JOBSTR-
STRUUO-SYSPHY-FRECHN-DEVTYP-DEVSTS-DEVPPN-SEEK-RTTRP-
LOCK-JOBSTS-LOCATE-WHERE-DEVNAM-CTLJOB-GOBSTR-ACTIVA-
DEACTI-HPQ-HIBER-WAKE-CHGPPN-SETUUO-DEVGEN-OTHUSR-
CHKACC-DEVSIZ-DAEMON-JOBPEK-ATTACH-DAEFIN-FRCUUO-DEVLNM-
PATH.-METER.-MTCHR.-JBSET.-POKE.-TRMNO.-TRMOP.-RESDV.-
UNLOK.-DISK.-DVRST.-DVURS.-
INCHRW*OUTCHR*INCHRS*OUTSTR*INCHWL*INCHSL*GETLCH*SETLCH*
RESCAN*CLRBFI*CLRBFO*SKPINC*SKPINL*IONEOU*]
IFSN =,B,[C]TERMIN TERMIN

.DEC1T==117.		;IDX OF 1ST TTCALL IN .DECRP MACRO.

DEFINE .DECVL D
IFSE D,+,[<<40+.IRPCN>←27.>] IFSE D,-,[<47000,,.IRPCN-41>] IFSE D,*,[<<51000,,> .IRPCN-.DEC1T,>]TERMIN


;REPEAT OVER JOBDAT VARIABLE NAMES AND VALUES.

DEFINE .DECJB A,B,C
IRPS A,,[JOBUUO
JOB41 JOBERR JOBREL JOBBLT JOBDDT JOBCN6 JOBPFI
JOBHRL JOBSYM JOBUSY JOBSA JOBFF JOBREN JOBAPR JOBCNI
JOBTPC JOBOPC JOBCHN JOBCOR JOBINT JOBVER JOBDA]B,,[40
41 42 44 45 74 106 114
115 116 117 120 121 124 125 126
127 130 131 133 134 137 140]
C!TERMIN TERMIN

DEFINE .DEC.J A,B,C
IRPS A,,[.JBUUO
.JB41 .JBERR .JBREL .JBBLT .JBDDT .JBCN6 .JBPFI
.JBHRL .JBSYM .JBUSY .JBSA .JBFF .JBREN .JBAPR .JBCNI
.JBTPC .JBOPC .JBCHN .JBCOR .JBINT .JBVER .JBDA]B,,[40
41 42 44 45 74 106 114
115 116 117 120 121 124 125 126
127 130 131 133 134 137 140]
C!TERMIN TERMIN